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Introduction 


* The first, official version of Prolog was developed 


— at the University of Marseille, France 
— by Alain Colmerauer 

— in the early 1970s 

— as a tool for PROgramming in LOGic 


Preferred for Al programming and mainly used in 


such areas as: 
— Theorem proving, expert systems, NLP, ... 


Logical programming is the use of mathematical logic 
for computer programming. 











Introduction 
For symbolic, non-numeric computation 
— e.g.: parent (tom, bob). 


Parent is a relation between its parameters: tom and 
bob 


The whole thing is called a clause 
Each clause declares one fact about a relation 


Prolog is a Declarative Language 
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Introduction 


Used for symbolic and non-numerical computation 


Has a built in intelligent search mechanism 
Can handle complex problems in compact programs 


Writing a program in Prolog means writing facts and 
rules which together comprise knowledge base 


Facts and rules use predicates which represent 
relationships among data objects. 











Introduction 


* Declarative Language means that 


— The programmer 
* declares facts 
* defines rules for reasoning with the facts 


— Prolog uses deductive reasoning to 


* determine new facts from old 


* decide whether a proposed fact (goal) can be logically derived 
from known facts 


(such a decision is called a conclusion) 











Prolog Syntax 


* Termsin Prolog 
— Comments 
— Simple 
* Constants: 
— Atoms 
— Numbers 


» Integer 


» Real 


* Variables 


— Complex Structures 











Prolog Syntax 


English Predicate calculus Prolog 
And A ; 

Or v ; 
Onlyif = - 

Not a not 











Prolog Syntax 


* Atoms 


— Strings of letters, digits, underscore character starting with 
lower case letter: 


sarah jones, x25,x yx yAB 
— String of special characters: 
<->, ===>, ... 
— Strings of characters enclosed in single quotes: 


“India”, “Tom” 











Prolog Syntax 


* Comments 
— Multi-line 
/* This is a comment 


This is another comment */ 


— Short 


% This is also a comment 
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Prolog Syntax 


* Conjunction and Disjunction 


— Conjunction 5, 
— Disjunction 5; 
* P:-Q;R. 
eP-Q 
* PR 
— */ has more priority 
* P-Q,R;S,T,U. 
* P--(Q,R);(S,T,U). 











Prolog Syntax 


* Numbers 
— Include integers and real numbers 
1, 3131, -0.0035, 3.14 
* Variables 


— String of letters, digits and underscore characters that 
starts either with an upper-case letter or with an 
underscore: 


Y, Child, a23, Student List 











Prolog Syntax 


* Structures 
— Objects that have many components 
— Components can themselves be structures 


— Functor is used to combine components into single 
structure 


date(1, jan, 2007), date(Date, Month, 2007) 
date(31, cat, -4.3), segment(point(1,1),point(3,3)) 
— Functors are recognized by: 
* Name 


* Number of arguments (Arity) 











Clauses 


* There are three categories of clauses in Prolog: 


— Facts: Those are true statements that form the basis for 
the knowledge base. 


— Rules: Similar to functions in procedural programming (C+ 
+, Java...) and has the form of if/then. 


— Queries: Questions that are passed to the interpreter to 
access the knowledge base and start the program. 











Clauses 


* Rules 

— A Rule consists of 
* a condition part (right-hand side) > body of clause 
* a conclusion part (left-hand side) > head of clause 
* They are separated by “:-* which means “if” 

— Parent relation 
* parent(X, Y): Xisa parentofY 
* VXy (parent(X,Y) € father(Y, X) ” male(Y)) 
* parent(X, Y) :- father(Y, X), male(Y). 


head body 











Prolog Syntax 


* Predicate 
— A predicate consists of a head and a number of arguments 
— Is a function which returns true/false 
— For example: 


father(sam, pat). %sam is father of pat 


16/10/12 











Clauses 


* Facts 
— A fact is a one-line statement that ends with a full-stop. 


* male(terach). 
* male(abraham). 


* female(sarah). 


female(milcah). 


father(haran, milcah). 


father(haran, yiscah). 


* mother(sarah, issac). 











Clauses 


* Rules 
— Variables in head of rules are universally quantified 


— Variables appearing only in the body are existentially 
quantified 
— Rules vs. Facts 
* A Fact is something unconditionally true 


* Rules specify things that are true if some condition is satisfied 











Clauses 


* Recursive Rules 


— The recursion in any language is a function that can call 
itself until the goal has been succeed. 


— In Prolog, recursion appears when a predicate contain a 
goal that refers to itself. 


— In Prolog, a recursive definition always has at least two 
parts. A first fact that act like a stopping condition and a 
rule that call itself simplified. At each level the first fact is 
checked. If the fact is true then the recursion ends. If not 
the recursion continue. 


— A recursive rule must never call itself with the same 
arguments. 











Clauses 


* Recursive Rules 
Example: Ancestor 


— Rules in Prolog are like functions in procedural 
programming languages 
— For recursion we should define the ancestor relation in 
terms of itself 
— Base Case: 
ancestor(X, Z) :- parent (X, Z). 
— Recursion Step : 


ancestor (X, Z) :- parent (X, Y), ancestor (Y, Z). 











Clauses 


* Queries 
— Queries are questions 


— The engine tries to entail the query (goal) using the Facts 
and Rules in KB 


— There are two kinds of answer 


* Yes/No: parent(terach, abraham). 
* Unified Answer/No: parent(terach, Y). > X=terach 
— Other possible answer(s) can be Y=abraham; 


found using semicolon 


(return for stopping) X=terach 


Y=nachor; 


X=terach 
Y=haran; 


no 











Clauses 


* Recursive Rules 
Example: Ancestor 


— Define ancestor relation based on parent relation. 
ancestor (X, Z) :- 
parent (X, Z). 
ancestor (X, Z) :- 
parent (X,Y), parent (Y, Z). 
ancestor (X, Z) :- 
parent (X, |), parent (|, Y), parent (Y, 2). 


— Solution is Recursion 
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Clauses 


* Recursive Rules 
Example: Factorial 


— The best way in Prolog to calculate a factorial is to do it 
recursively. 
factorial(0,1). 
factorial(X,Y) :- 
XLisX-1, 
factorial(X1,2), 
YisZ*X,|!. 
— Nowifyou enter: 
?- factorial(5,X). 
X=120 











Clauses 


* Queries 
— Q: Who is a grandparent of issac? (using parent 
relationship) 
* Who is a parent of issac? Assuming “Y” 
* Who is a parent of “Y”? Assuming “x” 
* ?- parent(Y, issac), parent (X, Y). 


* Ifwe change the order of them the logical meaning remains the 
same 


— Q: Who are nachor” s grandchildren? 











How Prolog Answers Queries 


Instead of starting with simple facts given in the program, 
prolog starts with the goals. In fact, Prolog does goal driven 
search. 


Using rules, Prolog substitutes the current goals (which 
matches a rule head) with new sub-goals (the rule body), until 
the new sub-goals happen to be simple facts. 


Prolog returns the first answer matching the query. When 
prolog discovers that a branch fails or if you type ';” to get 
other answers, it backtracks to the previous node and tries to 
apply an alternative rule at that node. 











How Prolog Answers Queries 


*— Applying the next rule 


ancestor (X, Z) :- parent (X, Y), ancestor (Y, Z) 


*- Unifying: (tom/X), (pat/Z) 


— New Goal: parent (tom, Y), ancestor (Y, pat) 


— Prologtries to satisfy them in order in which they are 
written 


— The first one matches one of the facts (bob/Y) 
— Second sub-goal: ancestor (bob, pat) 


— The same steps should be done for this sub-goal 











How Prolog Answers Queries 


* Orders of Clauses and Goals 


— Itturns out that : 


* The first and second variations are able to reach and answer for 
ancestor. 


* The third sometimes can and sometimes can” t 


* And the forth can never reach and answer (infinite recursion) 


— “Try simple things first”. 











How Prolog Answers Queries 


* Facts 
parent (pam, bob). 
parent (tom, bob). 
parent (tom, liz). 
parent (bob, ann). 
parent (bob, pat). 
parent (pat, jim). 
* Rules 
ancestor (X, Z) :- parent (X, Z). 
ancestor (X, Z) :- parent (X, Y), ancestor (Y, Z). 
* Query 


?-ancestor (tom, pat). 
* The rule that appears first, is applied first 
*— Unifying: (tom/X), (pat/Z) 
— The goalis replaced by: parent (tom, pat). 
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How Prolog Answers Queries 


Orders of Clauses and Goals 


1. ancestor (X, Z) :- parent (X, Z). 
ancestor (X, Z) :- parent (X, Y), ancestor (Y, Z). 


2. ancestor (X, Z) :- parent (X, Y), ancestor (Y, Z). 
ancestor (X, Z) :- parent (X, Z). 


3. ancestor (X, Z) :- parent (X, Z). 
ancestor (X, Z) :- ancestor (Y, Z), parent (X, Y). 


4. ancestor (X, Z) :- ancestor (Y, Z), parent (X, Y). 
ancestor (X, Z) :- parent (X, Z). 

















Backtracking 


* Cut 


— Upto this point, we have worked with Prolog's 
backtracking. 


— Sometimes it is desirable to selectively turn off 
backtracking. 


— Prolog provides the predicate called cut for this, 
represented by an exclamation point (!). 


— The cut effectively tells Prolog to freeze all the decisions 
made so far in this predicate. That is, if required to 
backtrack, it will automatically fail without trying other 
alternatives. 











Backtracking 


* Cut 
— Example bride1(A) :- 
beautiful(claudia). beautiful(A), 
beautiful(sharon). intelligent(A). 
beautiful(denise). 
bride2(A) :- 
intelligent(margaret). beautiful(A), 1 
intelligent(sharon), intelligent(A). 
intelligent(denise). 
bride3(A) :- 
smart(claudia). beautiful(A), 
smart(sharon). smart(A). 
bridea(A) :- 
beautiful(A), !, 
smart(A). 














List 
* Membership 
— member(X,L) : Xis an object that occurs in L 
— Xisa member of list L if either: 
* Xisthe head ofL. or 
* Xisa member of the tail of L. 
member(X, [X| Tail] ). 
member( X, [Head] Tail] ) :- 


member( X, Tail). 


Example: 

?- member( a, [a, b, c]). 
Yes. 

?- member( [b, cJ, [a, [b, c]]). 
Yes. 

?- member(b, [a, [b, c]]). 

No. 





List 


* Listis a sequence of any number of items 


* Example: 
— [mech, elec, civil, aero, cse, john, [1,2], [], [X]] 

* List consists of two parts i.e L = [Head] Tail) : 
— Head — First item of the list 


— Tail — Remaining part of the list (tail itself is a list) 
* Empty listisalso a list([]) 
* Lists are handled in Prolog as trees 
* Listi=[a, b, c] 
[a,b,c]=[a | [b,c]]=[a,b | [cJ]=[a,b,cl [1] 
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List 
* Concatenation 
Examples: 
— ?- conc( [a,[b,c],d], [a, [],b], L). 
L=[a, [b,c], da, [],b] 
— ?- conc( Before, [feb | After], [ jan, feb, mar]). 
Before = [jan] 
After = [mar] 
Note: Refer to rule - 


conc([X]L1], L2, [X|L3]) :- conc(L1, L2, L3). 





List 


* Concatenation 
— conc(L1,12,L3) : L3 is the concatenation of L1 & L2 


— Ifthe first argument is empty list then second and third 
arguments must be the same list. 


conc([], L, L). 


— Ifthe first argument is non-empty list then it can be 
represented as [X|L1]. Then the result of concatenation 
will be [X|L3] where L3 is the concatenation of L1 and L2. 


conc([X|L1], L2, [X|L3]) :- conc(L1, L2, L3). 

















List 


* Deleting Item 


— del(X,L,L1) : L1 is equal to L with the first occurrence of item X 
removed. 


— If Xis the head of the list then the result after deletion is the tail of the 
list. 


del(X, [X] Tail], Tail). 
— If Xis in the tail then it is deleted from there. 
del(X, [Y| Tail], [Y| Taild]) :- del(X, Tail, Taili) 
Example 
?- del(a, [a, b, a, cJ, L). 
L=[b, a, cJ; 
L=[a, b, cJ; 
no 











List 
* Inserting Item 
— insert(X,L,L1) : L1 is any list such that deleting X from L1 gives L. 
— insert(X, List, BiggerList) :- 
del( X, BiggerList, List). 

Example 

?-insert(a, [b,c, dl, L). 

L=[a,b,c, dj; 

L=[b,a,c, dj; 

L=[b,c, a, d]; 

L=[b,c, d, al; 

no 











List 
* Sublist 


— Sis a sublist of L if: 
* Lcan be decomposed into two lists, L1 and L2, & 


* L2 can be decomposed into two lists, S and some L3 



































Operator 


* Some of the operators are in-built in Prolog. 
* Some predefined arithmetic operators: 


— + addition 

—. subtraction 

si multiplication 

—/ division 

— mod modulo, the remainder of integer division 


* Precedence of operator decides the correct 
interpretation of expressions. 


* Operator with highest precedence is the principle functor 
of the term. 


* Operators are functors. 3+4 = 3+4 (3+4 £ 7) 











List 


* Adding Item 


— add(X,L,L1) : L2 is the list obtained by adding X to L. Xis 
added in front of the list L. 


— The resulting list L1 is simply [XL]. 
— add(X,L,[X|L]). 


Example: 
? add(4.2, [1, a, f, [2]], L1). 
L1=[4.2,1,a,f, [2]] 
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List 


* Sublist 
— sublist(S,L):- 
conc(L1,L2,L), conc(S,L3,L2) 
Example 
? sublist([b,c],[a,b,c,d,e]). 
Yes 
? sublist (S, [a,b,c]). 
S=[]; 
S= [a]; 
S=[a,b]; 
S = [a,b,c]; 
S=[]; 
S= [b]; 











Operator 


* New operators can be defined by inserting into special 
kind of clauses called directives. Example: 


:-op(600,xfx,<==>) 
* Three group of operators: 
— infix: xfx, xfy, yfx 
— prefix: fx, fy 
— postfix: xf, yf 


* These definition helps in unambiguous interpretation of 
expressions which have sequence of binary operators. 











Operator 
x represents an argument whose precedence must be 
strictly lower than that of operator 


y represents an argument whose precedence is lower or 
equal to that of operator 


Precedence of an argument in parentheses or unstructured 
object is zero 


Precedence of a structured argument is equal to the 
precedence of its principal functor 


Example: 
:-op(500,yfx,- ) 
a-b-c 


Interpreted as (a-b)-c and not as a-(b-c) 











Arithmetic 


“is” operator forces evaluation of expression on RHS 
forcing instantiation of values on LHS to the evaluated 
value 


Examples 
1. Xis1+2 
X=3 
2. Yis5mod2 
Y=1 


At the time of evaluation all arguments must be 
instantiated to numbers 











Example 


Calculating number of elements in a list 
length(List,N) % N is the number of elements in List 
length([], 0). %R1 
length( [Head | Tail], N):- 

length(Tail, N1), 

Nis 1+N1. %R2 
Query: 
? length ([a,b,c,d],N). 

N=4 











Arithmetic 


* '=*is matching operator (it does not evaluate on its 
own) 
* Matches right hand side with left hand side 
* Examples 
1. ?X=1+2 
X=1+2 
2. ?1+3=2+2 
No 
3. 2X+3=4+Y 
X=4 
Y=3 
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Arithmetic 


* Values of arithmetic expressions can be compared by 
arithmetic operators: 
— X<Y :- XislessthanY 
— X>Y :-Xis greater than Y 
— X>=Y :- Xis greater than or equal to Y 
— X=<Y :- Xis less than or equal to Y 
— X=:=Y :-the values of X and Y are equal 


— X=)=Y :-the values of X and Y are not equal 











How to Run 


* Ifyou want to use Prolog you need a compiler. 


* There are many compilers downloadable on 
internet. 


* You can use SWl-Prolog. SWl-Prolog is free Prolog 
compiler licensed under the GPL. 


http://www.swi-prolog.org/ 





Available for Windows, Linux, Unix and MacOS 
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How to Run How to Run 
* Prolog has an interactive interpreter * Prolog has an interactive interpreter 
* After starting SWl-Prolog, the interpreter can start * After starting SWl-Prolog, the interpreter can start 
reading your Prolog files and accept your queries. reading your Prolog files and accept your queries. 


— Linux and MacOS, type the command on terminal: swipl 


— Windows: Start -> Programs -> SWl-Prolog -> Prolog 
* To exit Prolog simply type the command “halt” 


* Prolog program files usually have the extension .pl 




















How to Run How to Run 
* Tostart Prolog * Useful commands 
— Linux and MacOS — consult(“<filename>"). OR ['<filename>'] 


* Load a source file, where <filename> is the full path to the prolog file name. E.g. 


* Type the command on terminal: swipl a A ê 
consult(likes). OR ['/home/user/prolog/likes' ]. 


— Windows 
* Start -> Programs -> SWI-Prolog -> Prolog 


reconsult ('<filename>”. 


* Reconsult a changed source files. E.g. reconsult('/home/user/prolog/sample'). 


EE SWT Prolog (Multi-threaded, version 5.22) 
E Br Ebay 





listing. 
* Listallthe predicates 





— make. 


* Reload all files that have been changed since they were last loaded. Normally used 
after editing one or more files. 


help(<Spec>). 


* Give help on <Spec>, which is normally the name of a predicate or C interface 


























function. 
Windows Linux 
How to Run How to Run 
* Useful commands * To exit Prolog simply type the command “halt” 
— trace. 


* Switch on trace 


EE SWT-Prolog (Multithreaded, version 62,2] 
Fe E 


— notrace. 





* Switch offtrace 








Windows Linux 
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